home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / iqb9107.zip / HOTKEY.BAS < prev    next >
BASIC Source File  |  1991-06-27  |  315b  |  16 lines
  1. CONST FALSE = 0, TRUE = NOT FALSE
  2. ON KEY(15) GOSUB RightShiftHandler
  3. KEY 15, CHR$(1) + CHR$(&H36)
  4. KEY(15) ON
  5. Done% = FALSE
  6.  
  7. Here:
  8.     PRINT "WARNING! Hand off that knob!"
  9.     IF NOT Done% GOTO Here
  10.     END
  11.  
  12. RightShiftHandler:
  13.     PRINT "You pressed the right shift knob!"
  14.     Done% = TRUE
  15.     RETURN
  16.